home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO024.dsk / STARTUP.bas < prev   
BASIC Source File  |  2012-02-16  |  1KB  |  38 lines

  1. 10  REM   MENU FOR N.A. PROGRAMS
  2. 20 D$ =  CHR$(4)
  3. 30  HOME 
  4. 40  HTAB 12: INVERSE : PRINT "DU PONT PRESENTS"
  5. 45  NORMAL 
  6. 50  PRINT 
  7. 60  HTAB 8: INVERSE : PRINT "NEWTON'S APPLE FREEWARE"
  8. 65  NORMAL : PRINT : PRINT 
  9. 68  PRINT "***************************************"
  10. 70  PRINT : PRINT 
  11. 93  PRINT : PRINT "     A)   PROBABILITY"
  12. 95  PRINT : PRINT "     B)   NEWTON'S KNOWLEDGE"
  13. 100  PRINT : PRINT "     X)   EXIT THIS PROGRAM"
  14. 105  PRINT : PRINT "***************************************"
  15. 108  VTAB 22
  16. 110  PRINT : PRINT "Enter the letter of your choice:  _"; CHR$(8);: GET CH$
  17. 140  IF CH$ = "A"  OR CH$ = "a"  THEN  PRINT D$;"RUN PROBABILITY"
  18. 150  IF CH$ = "B"  OR CH$ = "b"  THEN  PRINT D$;"RUN KNOWLEDGE"
  19. 160  IF CH$ = "X"  OR CH$ = "x"  THEN  GOSUB 200
  20. 170  GOTO 108
  21. 200  HOME 
  22. 210  HTAB 8: PRINT "Newton's Apple Freeware"
  23. 215  HTAB 9: PRINT "is made possible by"
  24. 220  PRINT : HTAB 18: PRINT "by"
  25. 230  PRINT : PRINT : HTAB 10: PRINT "a grant from Du Pont"
  26. 240  FOR I = 1 TO 1500: NEXT I
  27. 245  PRINT : PRINT : PRINT 
  28. 250  PRINT "Created and distributed"
  29. 270  PRINT "by"
  30. 290  PRINT "TelEd, Inc."
  31. 300  FOR I = 1 TO 1500: NEXT I
  32. 305  PRINT : PRINT 
  33. 310  PRINT "Written by Bob Houghton"
  34. 320  FOR I = 1 TO 1500: NEXT I
  35. 325  PRINT 
  36. 330  PRINT "NEWTON'S APPLE is a production of"
  37. 350  PRINT "KTCA-TV in Minneapolis/St. Paul"
  38. 360  END